Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim  As Long

     = RGB(242, 242, 242)
    Cells.Interior.ColorIndex = xlNone

    With ActiveCell
    
        .EntireRow.Interior.Color = 
        .EntireColumn.Interior.Color = 
    
        .Interior.ColorIndex = 0
    
    End With

End Sub